COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00003 ENDMK
C⊗;

VARIABLE /DSIG;
ARRAY R1[642],R2[510],R3[410],R4[332],R5[252],R6[168];

COMMENT: Sum of delay memory sizes = 2314
	 Reverberation time = 1.20 seconds
	 Clock rate = 12800
	 Distance to first reflector = 2.24 meters;

INSTRUMENT ALLPASS;
I_ONLY
    BEGIN
	PRINT "   ALLPASS REVERB ";
	REVINIT←1;
	IF
	    SRATE ≠ 12800
	 THEN
	    PRINT "
WARNING: SRATE does not match reverberator rate. ";
    END;

REV2(DSIG,641, .749,R1);
REV2(U1,509, .720,R2);
REV2(U2,409, .691,R3);
REV2(U3,331, .663,R4);
REV2(U4,251, .650,R5);
REV2(U5,167, .637,R6);
OUTA ← OUTA+U6*9.780;
DSIG←0;
END;